home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh0x / sh04a.d64 / listing 01.p (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-03-30  |  726 b   |  24 lines
  1. 50000 REM *****************************
  2. 50001 REM *                           *
  3. 50002 REM *     WORT-PARSER 4.0       *
  4. 50003 REM *                           *
  5. 50004 REM *      <C> 1986 BEI         *
  6. 50005 REM *                           *
  7. 50006 REM *     MICHAEL NICKLES       *
  8. 50007 REM *                           *
  9. 50008 REM *****************************
  10. 50010 REM BEFEHLSSATZEINGABE ---------------------------------------------------
  11. 50011 :
  12. 50015 SL=80: REM BEFEHLSSATZLAENGE
  13. 50020 PRINT"":BE$="":POKE198,0:POKE211,0:POKE214,22:SYS58732:PRINT"[158][164]";
  14. 50030 GETX$:IFPEEK(203)=1THEN50120
  15. 50040 IFX$=""THEN50030
  16. 50050 IFLEN(BE$)=0ANDASC(X$)=20THEN50030
  17. 50060 I=ASC(X$):IFI<32ORI>133ANDI<159THENIFI<>20THEN50030
  18. 50070 IFLEN(BE$)=SLANDI<>20THEN50030
  19. 50080 BE$=BE$+X$
  20. 50090 PRINTCHR$(20);X$;"[164]";
  21. 50100 IFI=20THENBE$=LEFT$(BE$,LEN(BE$)-2):GOTO50030
  22. 50110 GOTO50030
  23. 50120 PRINT"[157] "
  24.